home *** CD-ROM | disk | FTP | other *** search
/ Zoo Guides: Mammals of Africa / ZOO Guides - Mammals of Africa.iso / mac / Other ZooGuides Sampler / Butterflies data / Chapters 12 / intro / intro.rsrc / BITD_1057.bin (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-10-08  |  15KB  |  118 lines
  1.    GOSUB
  2. OPEN
  3. <0x18826d6>                                                                                                                                                                                                                                                          PRINTPRINT<0x7e><0x7d><0x1882716>PRINT<0x7d>ATNASC32<0x188271d>NOT
  4. ATN
  5. <0x5e>
  6. <0x1882724>]<0x7d>PUT<0x7d><0x7e><0x7d><0x5f><0x7d><0x7d><0x188272e><0x7e><0x7e>PUT<0x7d>COS@<0x1882735>
  7. var2bac<0x7e><0x7d>■²                                                                                                                                                                                                                                                              AS<0x1882774><0x50><0x7d><0x7d>^<0x1882779>varffff8800AREA
  8.  
  9. MID$<0x7e><0x7d>
  10. <0x7e><0x7e><0x7d><0x1882787>PUT<0x7d>PUT<0x7d><0x7e>COS<0x7e><0x7d><0x1882790>PUT<0x7d>PUTRNDPRINT|<0x56>
  11. ATN
  12. <0xfb,0x00>var24fa<0xfb,0x00><0x18827a2>PUT<0x7d><0x7d>COMMON<0x7c>COS<0x7c>COMMONPUTPRINTPUT<0x7d><0x7d>labelffff822c%MKS$
  13. OPEN
  14. varfffffbd0<0xfb,0x00>4PUT<0x7d>COMMONPUTPRINTPUTPRINTPRINTPUTPRINTPRINT<0x7d>PRINTPRINTPUT<0x7d><0x7d><0x60>PUTPRINTATNlabelfffff700ATN
  15. <0x5e>
  16.  
  17. y<0x7d><0x7d><0x18827de>PUT=<0x7d><0x7f><0x7e><0xfb,0x00><0x18827e6>PUT<0x7d>COS<0x7d>PUTPRINT<0x7d><0x7d><0x18827ef>PRINT<0x7d><0x7d>PUTCOMMON<0x18827f5><0x46>
  18. FIELD
  19. <0x7d><0x7d>PUT<0x7d><0x7d><0x1882801>PRINT<0x7d><0x7d>PUTPRINTPUT<0x7d><0x7d><0x7d><0x188280b><0x50>PUT<0x7d>PRINTPUT<0x7e><0xfb,0x00>labelffff822dvarffff9600AREA
  20. <0x7d><0x7d>PUT<0x7d><0x7d>173<0x7d><0x7d>PUT<0x56>PUT<0x7d>PUT<0x7d>PRINTPUT<0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7d>varfffffead<0x7e><0x7d><0x188283b>PUT<0x7d>COMMON3<0x1882840>varffffe600ATN
  21. MOD
  22. <0x1882848>V<0x7d><0x7d>PUT<0x7d>EQV<0x7e>\<0x7d>varffffadac<0x7d><0x7d><0x1882857>PUT<0x7d><0x7d>PUT<0x7f>PRINT<0x60><0x7c><0x7d><0x7d>d<0x1882865>SGN
  23. NEXT
  24.  
  25. <0x7c>    PUT<0x7d><0x7f><0x7e>PUT<0x7e><0x7d>
  26. <0x7e><0x7c><0x7d>
  27. PUT<0x7e><0x7d><0x18828b1><0x7e><0x7d>PRINT<0x7d>PUT<0x7d>d:^4^<0x7e><0x7d>
  28. <0x7c>CALL
  29. <0x5c>
  30. var73e9<0x7e><0x7d>varfffffefe<0x7e><0x7d>
  31. PUT<0x7e><0x7d><0x18828d3>PUT<0x7d>COMMONCOMMONPUT<0x7d>PUTPUT<0x7d>COMMONPRINTPUT<0x7e><0x7d><0x18828e2><0x7e>COMMON44.ATN^4XPUT<0x7d><0x7d>^varffffd200EOF
  32. <0x18828f5>MID$<0x7d><0x7d>COSPRINT<0x7e><0x7d>
  33. <0x7e><0x7e><0x7d>
  34. <0x7e>8PRINTRSETPRINTCOS<0x7d>PRINTPRINT<0x7d>PRINT<0x7d>PUT<0x7d><0x7d>COMMON;^MKI$COMMONATN<0x1882917><0x1882918><0x1882919>W_^PRINT<0x7e><0x7d>label7cf8varffffa200CVL
  35. <0x1882928><0x7c><0x7e><0x7d>PRINT<0x7d>COS<0x7e><0x7d><0x1882931><0x7e>PUT<0x7e><0x7d><0x7e><0x7d><0x7d><0x7e><0x7e><0x7d>1COMMONXATNW-|X.<0x1882945><0x1882946><0x1882947>XMKD$PRINT;<0x188294c><0x188294d>XMKD$<0x7c><0x7d>labelffffdf64varfffff000ATN
  36. IMP
  37. var48fc<0xfb,0x00>
  38. <0x5f><0x7e><0x7d>173<0x7d><0x7e><0x7d><0x7d><0x5f><0x7d><0x5d>^4<0x1882970><0x1882971><0x1882972><0x1882973>.<0x1882975><0x7d>.ATNMKD$.<0x188297d><0x188297e>PUT<0x7d><0x7d><0x7e><0x7d><0x7e>PRINTPRINTXWHILEMKS$
  39. &H4ffd<0x7d>PUT<0x7d><0x7d>PUT<0x7c>MKI$ATN|ATNPRINT<0x7e><0x7d>                                                                                                                                                                                                                                                             PUTMKD$.<0x18829d5><0x18829d6><0x18829d7><0x18829d8><0x18829d9><0x18829da><0x18829db>label0334ATNCOS^var5eac<0x7e><0x7d><0x18829e9>PUT<0x7d>PUT<0x7e>PRINT141
  40. <0x5a>
  41. )zPRINT<0x7d>PRINTATNX<0x18829fb><0x18829fc><0x18829fd><0x18829fe>-XATNMKD$PRINT:4<0x1882a0a><0x1882a0b>label03084]COMMONPRINTPUT<0x5e><0x7d><0x7d>PUT<0x7d><0x7d>PUT<0xfc,0x00>labelffffad64220
  42. DATA
  43. var73ac<0x7d><0x7d><0x1882a2e>MKD$X.-<0x1882a33>1<0x1882a37>R4(]MKD$ATNRRuMKD$<0x7d>RNDAS
  44. PUTAS
  45. PUT<0x7e><0x7d>
  46. QOPEN
  47. WRITE
  48. var24ac<0x7d><0x7d>0PUTPUTPRINTCOMMONATN^X.^MKD$<0x7d><0x7c>PUTATNMKD$^PRINTPUT<0x7c><0x7d>
  49. PUT<0x7e><0x7d>
  50. <0x5f>\<0x7d>
  51. PUT<0x7d><0x7d><0x7d><0x7d>3<0xfc,0x00>ATN
  52. AND
  53. <0x1882a89>H<0x7d><0x7d><0x7e><0x7d>EQV<0x7c><0x7d><0x1882a92>PUTPRINTPRINTPUTPUT<0x7d><0x7d>PRINT<0x7d><0x7d>labelffffacfd<0x7e><0x7c><0x7d><0x1882aa3>PUT<0x7d><0x7e><0x7d><0x7d><0x7e><0x7e><0x7d>
  54. <0x7e><0x7c><0x7d>
  55. <0x7e><0x7d><0x7d>labelffffadfcvarffffc800LSET
  56. var73ac<0x7e><0x7d>
  57. PUT<0xfc,0x00>65022PUTXOR<0x7d><0x7d>                                                                                                                                                                                                                                                             <0x7d><0x5f><0x7d>PUTXOR<0x7e><0x7d>
  58. PUT<0x7e><0x7d><0x1882b0d><0x7e><0x7d><0x7e><0x7d>PUT<0x7d><0x7e><0xfc,0x00>varffff8833GOTO
  59. <0x56>
  60.  
  61. s<0xfc,0x00><0x1882b22>EQV<0x7d><0x7d>PUTEQV\<0x7d>
  62. <0x7e><0x7e><0x7d>labelffffacfe<0x7e><0x7e><0x7d>PUT<0x7d>PUT<0xfc,0x00>
  63. <0x7e><0x7e><0x7d><0x1882b3f>PUT<0x7d><0x7d><0x7e>PRINT,TO
  64. COS
  65. var24ac<0x7d><0x7d>
  66. PUT<0x1882b51><0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0x7e><0x7d>
  67. <0x7e><0x7e><0x7d>
  68. <0x60><0x7e><0x7d><0x1882b63>PUT<0x7d><0x7e><0x7d>=<0x7d><0x7d>EQV<0x7e><0x7e><0x7d><0x7d><0x1882b70>PUTXOR<0x7d><0x7d>PUT<0x7d><0x60>PRINTASvarffff8201SGN
  69. <0x3b>
  70. var2aac<0xfc,0x00><0x1882b87>PUT<0x7d><0x7d><0x7e><0x7d><0x7e><0x7e><0x7d><0x1882b90><0x7e><0x7d><0x7d>PUT<0x7d><0x7e><0x7c><0x7d>
  71. <0x7e><0x7e><0x7d>labelffffadfd<0x7e><0x7d><0x7d><0x1882ba3>PUT<0x7d><0x7d>PUT<0x7d>PUTPRINT<0xfc,0x00>varffffdd3a
  72. labelffff8300-
  73. var24ac<0x7e><0x7d>PUT<0x7d>PUT<0x7d><0x7d>
  74. RSET<0x7d><0x7d>
  75. <0x7e><0xfc,0x00>
  76. <0x7e><0x7e><0x7d>
  77. PUT<0x7e><0x7d><0x1882bd2><0x7e><0x7d><0x7d><0x7e><0x7d><0x7e><0xfc,0x00><0x1882bdb>PUT<0x7d><0x7e><0x7d><0x7d>PUT<0x7c><0x7d>labelffffac5e,<0x51>
  78. LINE
  79. <0x1882bec>MID$<0x7d><0x7d>PUT<0x7d><0x7d>COMMONMOD<0x7d><0x7d><0x7e><0x7d>                                                                                                                                                                             <0x7f><0x7d><0xfc,0x00>labelfffffefd<0x7d><0x7e><0x7e>labelfffffdfdPUT<0x7c><0x7d>
  80. <0x7e><0x7e><0x7d><0x1882c46>PUT<0x7d><0x7d><0x7e>OPEN<0x1882c4c><0x20>
  81. <0x51>
  82.  
  83. ABS<0x7e><0x7d>labelffff8888><0x7d><0x7d><0x1882c5b><0x7e>PUT<0x7d><0x7e><0x7d><0x7e><0x7d><0x7e><0xfc,0x00><0x1882c66>XOR<0x7e><0x7d><0x7e>PUT<0x7d><0x7e><0x7d><0x7e><0x7e>PUT<0x7e><0x7d><0x7d><0x7d><0x7e>PUT<0x7d>PUT<0x7e><0x7d><0x1882c80>PUT<0x7d><0x7d><0x7e><0xfc,0x00>
  84. CDBL
  85. var4fac<0x1882c8d><0x7d>COS<0x7d><0x7e>COMMON<0xfc,0x00>varffffadfe<0x7c><0x7d>
  86. <0x7e><0x7e><0x7d><0x1882c9e><0x7e><0x7d>PUT<0x7d>PUT<0x7c><0x7d>labelffffadfd<0x7d><0x7e><0x7e><0x1882cac>PUT<0x7e><0x7d>PUT<0x7d>PRINT<0x7c><0x7d><0x1882cb5><0x7e><0x7d><0x7d>PUT<0x7d><0x7d>PUT
  87. <0x1882cc2>ASC<0x7d>PRINT<0x7d><0x7d>>PRINT<0x5f><0x7d><0x7d>PUT<0x7c><0x7d>
  88. PUT<0x7e><0x7d><0x7d><0x7d>PUT<0x7e><0x7d>
  89. <0x7e><0x7d><0x7d>
  90. ><0x7e><0x7d>
  91. <0x7e><0x7c><0x7d><0x7d><0x7d>PUT<0x7c><0x7d><0x7d>PUT<0x7d><0x7d>PRINT4CVI
  92. NOT
  93.  
  94. l\<0x7d>
  95. PUTMOD<0x7d>
  96. PUT<0x7c><0x7d>173<0x7d><0x7d>PRINT<0x7e>PUT<0x7d><0x7e><0x7d><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e>PUT<0x7c><0x7d>
  97. <0x7e><0xfc,0x00><0x7d><0x7d>:<0x59>
  98. INPUT
  99. <0x7d><0x7d>PUTPUT<0x7c><0x7d>
  100. PUT<0x7e><0x7d><0x7c><0x7d><0x1882d6b><0x7e><0x7d>PUT<0x7d>PUT<0x7d><0x7d>
  101. <0x7e><0x7d><0x7d><0x1882d77>EQV<0x7d><0x7d>PUT<0x7d><0x7d>PUTAS<0x7d>EOFlabelffffa800<0x4c>
  102.  
  103. $<0x7e><0x7d>
  104. PRINT<0x7e><0x7d>
  105. PUT<0x7d><0x7d>
  106. <0x7e>\<0x7d><0x7d><0x7d>PUT<0xfb,0x00>
  107. <0x7e><0x7e><0x7d><0x1882da5>PUT<0x7e><0x7d><0x7d>PUT<0x7e>PRINT<0x7e><0x7d><0x7d><0x1882db0><0x7e><0x7e><0x7d><0x7e><0x7d><0x7e><0x7d><0x7e>PUTPRINT>130
  108. <0x7d>
  109. varfffffdac<0x7e><0x7d><0x7e><0x7d>COMMONdPRINTPUT<0x7e><0x7d>labelffffadfdPUT<0x7d><0x7d><0x1882dda>PRINTCOSPRINT<0x7d>COMMONCOMMONPRINTPUTPRINTPRINT<0x7e><0x7d><0x1882de7><0x7e>PUT<0x7d><0x7d>PUT<0x7c><0x7d><0x7d><0x7d>PUT\<0x7d>
  110. ,<0x4e>
  111. label2b50<0x1882dfd><0xfb,0xfffffffb>RETURN
  112. <0x1882e02>PRINTPUT<0x7d>PUT<0x7d><0x7d>PRINT>PUT<0x7d><0x1882e0d><0x1882e0e><0x1882e0f>@<0x7e>COMMON<0x7e><0x7d><0x7e>COMMON<0x1882e17>d:52:<0x7e><0x1882e1e>41125^COS<0x7d><0x7d>d^<0x7d>PUT<0x7d><0x7d>PUT
  113. <0x60><0x7d><0x7d>
  114. PUT<0xfb,0x00><0x1882e37><0x7e><0x7d>PRINT<0x7d>labelffffd000<0x7c>PRINTvarffffc800<0x62>
  115. <0x7d><0x7d>PRINT<0x7e><0x7d>1PRINT<0x7e>d<0x1882e53><0x1882e54><0x1882e57>.4ATN9                                             <0x1882e92><0x1882e93><0x1882e94><0x1882e95><0x7e><0x1882e97>label040a-<0x7d><0x1882e9d>CALL<0x1882ea3>4XCOMMONPRINT<0x7e><0x7d>
  116. PUT<0x7d><0x7d>
  117. <0x7e><0x7e><0x7d><0x1882eb2>PUT<0x7d><0x7e>PUT<0x7d>COMMONlabelffffe100OR
  118. PRINTPRINT<0x7c>